﻿Namespace db.prim

	Public Class borc

	End Class

	Public Class borcisveren

		Sub New(token As Token, sno As Integer, tarih1 As Date, tarih2 As Date)
			Dim giriscikis = sigc.open(token, sno)
			Dim isvgiriscikis = From g In giriscikis Where g.isveren And g.giris And g.girciktar.get <= tarih2
			  Let cikis = (From c In giriscikis Where c.isyerino.get = g.isyerino.get And c.statu.get = g.statu.get And
			  c.girciktar.get >= g.girciktar.get Order By g.girciktar).FirstOrDefault
		End Sub

	End Class

End Namespace
